home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / utils / misc / siod / scm / random.scm < prev    next >
Encoding:
Text File  |  1993-02-22  |  174 b   |  6 lines
  1. (define (next-rand x)
  2.         (remainder (+ 25514 (* x 3)) 65536))
  3.  
  4. (define rand (let ((random 2346))
  5.                   (lambda () (set! random (next-rand random)) random)))
  6.